Объект Window

Объект Window

Данный объект представляет собой окно броузера и является вершиной иерархической структуры объектной модели Microsoft Internet explorer.
Таким образом, при помощи обращении к объекту Window происходит обращение непосредственно к самому окну броузера. Для ссылки на данный объект необходимо использовать ключевое слово на "Window'.

Расмотрим свойства объекта Window.

DefaultStaus. Представляет возможность задать содержимое строки состояния броузера по умолчанию, то есть в случае, когда строка состояния не отображает специальное предопределенное сообщение. Например, отображение в листинге 1, помещает в строку состояние текст "This is example!".

Листинг 1. Работа с методом DefaultStatus <html> <head> <script language="VBScript"> DefaultStatus="This is example!" </script> <title>DefaultStatus</title> </head> <body> <p align="center"><font color="#ff0000" size="4">Property</font> <font color="#ff0000" size="5"><em><strong>DefaultStatus </strong></em></font></p> </form> <div align="center">Хостинг от <a href="http://www.ucoz.ru/" title="Создать сайт бесплатно">uCoz</a><br /></div> </body> </html>

Document.Используется для ссылки на объект Document в текущем окне. Аналогичные ссылки на соответствующие объекты представляют свойства Location, Navigator и History.
Во многом сходное со свойством DefaultStatus свойство Status также служит для обращения к строке состояния.

Frames.Служит для обращения к массиву фреймов текущего окна. Если фрейм имеет имя, к нему можно обратиться непосредственно по имени. В противном случае, к каждому конкретному фрейму можно обратиться как к элементу массива по порядковому номеру. Нумерация фреймов в окне начинается с нуля.

Name.Дает возможность обратиться к имени окна или утановить его.

Parent.Возвращает ссылку на родительский объект. Если текущее окно в иерархии объектов является верхним, то данное свойство возвратит ссылку на сам текущий объект.

Selt.Возвращает ссылку на текущее окно.

Top.Позволяет обратиться к самому верхнему в иерархии объекту Window

Объект Window поддерживает ряд методов, приведенных ниже.

Alert.Служит для выдачи сообщений в специальном окне. Данный метод заключает в себе один параметр, представляющий собой строку вывода, и имеет следующий вид:

Window.Alert строка_сообщения

Листинг 2 демонстрирует простейшее использование метода Alert.

Листинг 2. Работа с методом Alert <html> <head> <script language="VBScript"> Sub AlertB_OnClick Alert "You clicked the Button!" End Sub </script> <title>Method Alert</title> </head> <body bgcolor="#ffffff"> <p align="center"><font color="#ff0000" size="4">Method</font> <font color="#00ff00" size="5"><EM><STRONG>Alert</EM></STRONG></font> <form method="post"><p align="center"><input type="button" name="AlertB" Value="Test_Alert_Method"></p> </form> <div align="center">Хостинг от <a href="http://www.ucoz.ru/" title="Создать сайт бесплатно">uCoz</a><br /></div> </body> </html>

Несимвольные значения для отображения методом Alert должна быть предварительно преобразованы к строковым.
Ввиду того, что объект Window в иерархии объектов занимает самое верхнее положение и, как правило, является текущи, можно нне указывать название самого объекта, а ограничится лишь указанием его метода. Полная форма записи может понадобиться в случае ссылки на объект Window из другого окна

Confirm.В отличие от окна сообщения метода Alert, окно метода Confirm включает не одну кнопку OK, а две - ОК и Cansel. При выборе кнопки ОК метод возращает логическое значение True, а при выборе Cansel - логическое значение False.
Единственным параметром метода Confirt также является текстовая строка сообщения. Значение, Возвращаемое данным методом, может быть присвоено переменной или использованно непосредственно в условном операторе
Cинтаксис вызова метода в этих случаях будет иметь следующий вид:

Переменная=CONFIRM строка_сообщения
или, например,
IF Confirm cтрока_сообщения then
...
End If

Листинг 3, приведенный ниже, реализирует пример, в котором пользователь должен нажать кнопку в окне броузера. После этого надо либо подтвердить свои действия, либо отказаться от них. В первом случае появляется окно с текстом "YES!!!", а во втором - окно с сообщением "NO!!!".

Листинг 3. Работа с методом Confirm <html> <head> <script language="VBScript"> Sub ConfirmB_OnClick if Confirm("Choose the button!") then Alert "YES!!!" else Alert "NO!!!" End If End Sub </script> <title>Method Alert</title> </head> <body bgcolor="#ffffff"> <p align="center"><font color="#ff0000" size="4">Method</font> <font color="#00ff00" size="5"><EM><STRONG>Confirm</EM></STRONG></font></p> <form method="post"> <p align="center"><input type="button" name="ConfirmB" Value="Test_Confirm_Method"></p> </form> <div align="center">Хостинг от <a href="http://www.ucoz.ru/" title="Создать сайт бесплатно">uCoz</a><br /></div> </body> </html>

Prompt. Данный метод позволяет вывести специальное диалоговое окно, содержащее поле ввода и строку сообщения. Формат вызова имеет следующий вид:

строка_ввода=Prompt(строка_сообщения, вариант_ввода)

Переменной строка_ввода присваивается значение, введенное в окне. Параметр строка_сообщения позволяет задать коментарий окна, а параметр вариант_ввода содержит вариант строки_ввода, принимаемый по умолчанию
Листинг 4, приведенный нижее, реализует Web страницу, в которой пользователь, нажав кнопку, вызывает окно метода Prompt. В этом окне можно указать требуемый текст. Введенный текст будет отображен методом Alert. По умолчанию вводится слово "текст".

Листинг 4. Работа с методом Prompt <html> <head> <title>Example</title> <script language="VBScript"> Sub TestB_OnClick Str = Prompt("Введите текст", "текст") Alert Str End Sub </script> </head> <body bgcolor="#ffffff"> <p align="center"><font color="#ff0000" size="4">Method</font> <font color="#00ff00" size="5"><EM><STRONG>Prompt</EM></STRONG></font></p> <form method="post"> <p align="center"><input type="button" name="TestB" Value="Test_Prompt_Method"></p> </form> <div align="center">Хостинг от <a href="http://www.ucoz.ru/" title="Создать сайт бесплатно">uCoz</a><br /></div> </body> </html>

Open. Данный метод позволяет создать новое окно броузера. Формат вызова метода имеет следующий вид:

Window.Open(URL, Имя_нового_окна, Параметры)

Параметры вызова данного метода носят следующие значения:
URL содержит ссылку на страницу, которая должна быть открыта в окне Броузера;
Имя_нового_окна позволяет задать имя создаваемому окну. Если же окно с таким именем уже существует, то для открытия документа, соответствующего заданному URL, будет использовано уже существующее окно;
Параметры представляют собой список заданных конфигураций, заключенных в кавычки и указанных в одной строке (см. листинг 5). Символ продления строки "_" использовать нельзя.

Листинг 5. Работа с методом Open <html> <head> <title>Example</title> <script language="VBScript"> Sub TestB_OnClick Options = "Toolbar=Yes, Location=Yes" Options = Options + ", Directories=Yes" Options = Options + ", Status=Yes" Options = Options + ", menubar=Yes" Options = Options + ", scrollbars=No" Options = Options + ", resizable=Yes" Options = Options + ", width=300" Options = Options + ", height=400" Window.Open "http://www.worldfide.com/index.html","worldfide", Options End Sub </script> </head> <body bgcolor="#ffffff"> <p align="center"><font color="#ff0000" size="4">Method</font> <font color="#00ff00" size="5"><EM><STRONG>Open</EM></STRONG></font></p> <p align="center"><input type="button" name="TestB" Value="Click the button to open window"></p> <div align="center">Хостинг от <a href="http://www.ucoz.ru/" title="Создать сайт бесплатно">uCoz</a><br /></div> </body> </html>

Close. Данный метод представляет возможность закрыть окно. Синтаксис вызова имеет следующий вид:
Window.close
Приведенный пример (листинг 6) демонстрирует использование метода Close для закрытия окна по нажатию кнопки.

Листинг 6. Работа с методом Close <html> <head> <title>Example</title> <script language="VBScript"> Sub TestB_OnClick Window.close End Sub </script> </head> <body bgcolor="#ffffff"> <p align="center"><font color="#ff0000" size="4">Method</font> <font color="#00ff00" size="5"><EM><STRONG>close</EM></STRONG></font></p> <p align="center"><input type="button" name="TestB" Value="Click the button to close window"></p> <div align="center">Хостинг от <a href="http://www.ucoz.ru/" title="Создать сайт бесплатно">uCoz</a><br /></div> </body> </html>

SetTimeOut. Позволяет задать имя процедуры, которую надлежит выполнить через заданный временной интервал. Формат вызова этого етода имеет следующий вид:
x = Window.SetTimeOut Имя_процедуры, Интервал
Следует отметить, что временной интервал измеряется в илисекундах, а вызываемая прцедура запускается лишь однажды.
Данный момент возращает параметр х, который может быть использован для выключения таймера методом ClearTimeOut.

CleartTimeOut. Данный метод позволяет отключить таймер. Синтаксис вызова метода имеет следующий вид:
CleartTimeOut x
Параметр х определяется методом SetTimeOut.
Листинг 7, приведенный ниже, решает следующие задачи. Если кнопка нажата в течение первых двух секунд, появится сообщение "Thank you!". В противном случае, то есть если пользователь не успел нажать кнопку, появится надпись "Click the button!"

Листинг 7. Работа с таймером <html> <head> <title>Example</title> <script language="VBScript"> x = SetTimeOut ("Alert('Click the button!')",2000) Sub TestB_OnClick ClearTimeOut x Alert "Thank you!" End Sub </script> </head> <body bgcolor="#ffffff"> <p align="center"><font color="#ff0000" size="4">Method</font> <font color="#00ff00" size="5"><EM><STRONG>Timer</EM></STRONG></font></p> <p align="center"><input type="button" name="TestB" Value="Click the button"></p> <div align="center">Хостинг от <a href="http://www.ucoz.ru/" title="Создать сайт бесплатно">uCoz</a><br /></div> </body> </html>

Navigate. Позволяет загрузить новую страницу в окно броузера. Вызов метода осуществляется посредством следующей команды:
Window.Navigate URL
Параметр URL задает адрес документа, который должен быть загружен в окно броузера.
В приведенном примере (листинг 8) при нажатии на кнопку появляется окно, в котором пользователю предлагается указать интересующий его URL. По умолчанию предложен следующий URL: http://www.uefa.com. В окно броузера будет загружена страница согласно заданному URL.

Листинг 8. Работа с методом Navigate <html> <head> <title>Example</title> <script language="VBScript"> Sub TestB_OnClick Str = Prompt ("Enter URL","http://www.uefa.com") Navigate Str End Sub </script> </head> <body bgcolor="#ffffff"> <p align="center"><font color="#ff0000" size="4">Method</font> <font color="#00ff00" size="5"><EM><STRONG>Navigate</EM></STRONG></font></p> <p align="center"><input type="button" name="TestB" Value="Get a new Web-page!"></p> <div align="center">Хостинг от <a href="http://www.ucoz.ru/" title="Создать сайт бесплатно">uCoz</a><br /></div> </body> </html>

OnLoad. Cобытие возникает сразу после загрузки документа. Чтобы определить данное событие и связать его с конкретной процедурой обработки, достаточно прописать процедуру, имя которой состоит из двух частей - имени объекта и названия события, раздененных символом подчеркивания:
Window_OnLoad
В приведенном ниже примере (листинг 9) показана обрработка данного события. Идея примера проста. При загрузке страницы должна появляться подсказка о действиях пользователя, которые должны быть выполнены: "Click the button and get YES! or NO!"

Листинг 9. Стандартная обработка события OnLoad <html> <head> <title>Example</title> <script language="VBScript"> Sub Window_OnLoad Alert "Click the button and get YES! or NO!" End Sub Sub TestB_OnClick if Confirm("Choose the button!") then Alert "YES!!!" else Alert "NO!!!" End If End Sub </script> </head> <body bgcolor="#ffffff"> <p align="center"><font color="#ff0000" size="4">Event</font> <font color="#00ff00" size="5"><EM><STRONG>OnLoad</EM></STRONG></font></p> <form method="post"> <p align="center"><input type="button" name="TestB" Value="Get YES! or NO!"></p> </form> <div align="center">Хостинг от <a href="http://www.ucoz.ru/" title="Создать сайт бесплатно">uCoz</a><br /></div> </body> </html>

Однако в данном виде описания события имеется некоторый недостаток. Если определенная процедурадолжна выполнятся при возникновении разных событий или возникновении событий различных объектов, придется создавать несколько совершенно одинаковых процедур. Чтобы избежать этого недостатка, можно описать событие OnLoad непосредственно в теге <BODY> при помощи атрибута ONLOAD (листинг 10). В этом случае пользователь может сам дать название интересующей его процедуре.
Например:
<body bgcolor = "white" language = "VBScript" OnLoad ="Load_Proc">
Тогда, безусловно, и листинг, приведенный выше, станет выглядеть иначе.

Листинг 10. Вызов обработчика события OnLoad из тега <BODY> <html> <head> <title>Example</title> <script language="VBScript"> Sub Load_Proc Alert "Click the button and get YES! or NO!" End Sub Sub TestB_OnClick if Confirm("Choose the button!") then Alert "YES!!!" else Alert "NO!!!" End If End Sub </script> </head> <body bgcolor="#ffffff" OnLoad ="Load_Proc"> <p align="center"><font color="#ff0000" size="4">Event</font> <font color="#00ff00" size="5"><EM><STRONG>OnLoad</EM></STRONG></font></p> <form method="post"> <p align="center"><input type="button" name="TestB" Value="Get YES! or NO!"></p> </form> <div align="center">Хостинг от <a href="http://www.ucoz.ru/" title="Создать сайт бесплатно">uCoz</a><br /></div> </body> </html>

Как несложно заметить, приведенный листинг весьма похож на предыдущий. Однако техника вызова обработчика события OnLoad здесь принципиально другая.

OnUnLoad.Данное событие возникает при выгрузке документа из окна. Определение обработчика события OnUnLoad аналогично предыдущему рассмотренному: оно должно быть описано либо через тег <BODY>(листинг 11), либо при помощи процедуры Window_OnUnLoad(листинг 12).

Листинг 11. Вызов обработчика события OnUnLoad из тега <BODY> <html> <head> <title>Example</title> <script language="VBScript"> Sub Load_Proc Alert "Good bye!" End Sub Sub TestB_OnClick Window.Close End Sub </script> </head> <body bgcolor="#ffffff" OnUnLoad ="Load_Proc"> <p align="center"><font color="#ff0000" size="4">Event</font> <font color="#00ff00" size="5"><EM><STRONG>OnUnLoad</EM></STRONG></font></p> <form method="post"> <p align="center"><input type="button" name="TestB" Value="Quit"></p> </form> <div align="center">Хостинг от <a href="http://www.ucoz.ru/" title="Создать сайт бесплатно">uCoz</a><br /></div> </body> </html>

Листинг 12. Вызов обработчика события OnUnLoad <html> <head> <title>Example</title> <script language="VBScript"> Sub Window_OnUnLoad Alert "Good bye!" End Sub Sub TestB_OnClick Window.Close End Sub </script> </head> <body bgcolor="#ffffff" OnUnLoad ="Load_Proc"> <p align="center"><font color="#ff0000" size="4">Event</font> <font color="#00ff00" size="5"><EM><STRONG>OnUnLoad</EM></STRONG></font></p> <form method="post"> <p align="center"><input type="button" name="TestB" Value="Quit"></p> </form> <div align="center">Хостинг от <a href="http://www.ucoz.ru/" title="Создать сайт бесплатно">uCoz</a><br /></div> </body> </html>

Несложно заметить, что между этими примерами разница в коде незначительная. В обоих вариантах кнопка Quit позваляет закрыть окно. При этом возникает событтие OnUnLoad и появляется сообщение "Good bye!"
Следует заметить, что это же сообщение будет появлятся и при использовании системной кнопки закрытия окна Window, поскольку не играет роли природа генерирования события OnUnLoad.

Хостинг от uCoz